home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1 / Nebula One.iso / Graphics / Misc / Wood.0.72 / Sources / TreeInspector.m < prev    next >
Encoding:
Text File  |  1994-07-12  |  1.7 KB  |  97 lines
  1. #import <misckit/MiscSliderField.h>
  2.  
  3. #import "TreeInspector.h"
  4. #import "Tree.h"
  5.  
  6. @implementation TreeInspector
  7.  
  8. - init
  9. {  
  10.        [super init];
  11.     view = nil;    
  12.     return self;
  13. }
  14.    
  15. - (BOOL)wantsButtons 
  16. { 
  17.     return NO; 
  18. }
  19.  
  20. - (BOOL)doesHandleSelection
  21. {
  22.     char buf[MAXPATHLEN + 1];
  23.     id bundle;
  24.     
  25.     if([self selectionCount] == 1 && 
  26.         [[self selection] isMemberOf:[Tree class]] && ![[self selection] parent]){
  27.         if(!view){
  28.              bundle = [NXBundle mainBundle];
  29.             [bundle getPath:buf forResource:"TreeInspector" ofType:"nib"];
  30.                [NXApp loadNibFile:buf owner:self withNames:NO fromZone:[self zone]];
  31.         }
  32.         return YES;
  33.     }
  34.     return NO;
  35. }
  36.  
  37. - ok:sender
  38. {
  39.     [(NXColorWell *)shadowColor deactivate];
  40.     return [super ok:sender];
  41. }
  42.  
  43. - revert:sender
  44. {
  45.     id tree;
  46.     
  47.     [super revert:sender];
  48.     tree = [self selection];
  49.     [shadowColor setColor:[tree shadowColor]];
  50.     [shadow setState:[tree shadow]];
  51.     [border setFloatValue:[tree border]];
  52.     [parentDistance setFloatValue:[tree parentDistance]];
  53.     [linkKind setState:[tree linkKind]];
  54.     [biegFactor setFloatValue:[tree biegFactor]];
  55.     [biegFactor setEnabled:[tree linkKind]];
  56.     return self;
  57. }
  58.  
  59. - changeShadowColor:sender
  60. {
  61.     [[self selection] setShadowColor:[sender color]];
  62.     return self;
  63. }
  64.  
  65. - changeShadow:sender
  66. {
  67.     [[self selection] setShadow:[sender state]];
  68.     return self;
  69. }
  70.  
  71. - changeParentDistance:sender
  72. {
  73.     [[self selection] setParentDistance:[sender floatValue]];
  74.     return self;
  75. }
  76.  
  77. - changeBorder:sender
  78. {
  79.     [[self selection] setBorder:[sender floatValue]];
  80.     return self;
  81. }
  82.  
  83. - changeLinkKind:sender
  84. {
  85.     [[self selection] setLinkKind:[sender state]];
  86.     [biegFactor setEnabled:[sender state]];
  87.     return self;
  88. }
  89.  
  90. - changeBiegFactor:sender
  91. {
  92.     [[self selection] setBiegFactor:[sender floatValue]];
  93.     return self;
  94. }
  95.   
  96. @end
  97.